﻿''' <summary>
''' 分析数组类
''' </summary>
''' <remarks></remarks>
Public Class ReconnArrayDataConstrue
    ''' <summary>
    ''' 分析类的数组 (ReconnDataConstrue)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_MyArrDataConstrue(-1) As ReconnDataConstrue
    Private m_MyArrDateCount(-1) As ReconnDateCount
    Private m_Agency As Integer = 0
    Private m_ArrayL As Integer = 0
    Private m_Sum As Integer = 0

    Public Sub New()
        ReDim Preserve Me.m_MyArrDataConstrue(Me.m_MyArrDataConstrue.Length)
        Me.m_MyArrDataConstrue(Me.m_MyArrDataConstrue.Length - 1) = New ReconnDataConstrue

    End Sub
    ''' <summary>
    ''' 分析类的数组 (ReconnDataConstrue)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property MyArrDataConstrue() As ReconnDataConstrue()
        Get
            Return Me.m_MyArrDataConstrue
        End Get
        Set(ByVal value As ReconnDataConstrue())
            Me.m_MyArrDataConstrue = value
        End Set
    End Property
    Property MyArrDateCount() As ReconnDateCount()
        Get
            Return Me.m_MyArrDateCount
        End Get
        Set(ByVal value As ReconnDateCount())
            Me.m_MyArrDateCount = value
        End Set
    End Property
    Property Agency() As Integer
        Get
            Return Me.m_Agency
        End Get
        Set(ByVal value As Integer)
            Me.m_Agency = value
        End Set
    End Property

    Property ArrayL() As Integer
        Get
            Return Me.m_ArrayL
        End Get
        Set(ByVal value As Integer)
            'If Me.MyArrDateCount.Length > 0 Then
            '    Me.m_ArrayL = Me.MyArrDateCount.Length

            'Else
            '    Me.m_ArrayL = 0
            'End If
            Me.m_ArrayL = value
        End Set
    End Property

    Property Sum() As Integer
        Get
            Return Me.m_Sum
        End Get
        Set(ByVal value As Integer)
            Me.m_Sum = value
        End Set
    End Property
End Class
